﻿Public Class cmbProvinciaLocalidad
    Dim _acceso As New AccesoBD    
    Public Sub inicializar()
        _acceso.load_combo(Me.cmbProvincia, _acceso.devuelveTabla("Provincias"), "idProvincia", "nombre")
        Me.cmbLocalidad.Enabled = False
    End Sub
    Private Sub cmbProvincia_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbProvincia.SelectionChangeCommitted
        If Me.cmbProvincia.SelectedIndex > 0 Then
            Dim _pronvincia As String
            _pronvincia = Convert.ToString(Me.cmbProvincia.SelectedValue)
            Dim _consulta As String = "select * from Localidades where idProvincia = " & _pronvincia
            Dim tabla As New DataTable
            Me.cmbLocalidad.Enabled = True
            tabla = _acceso.ejecutaSQL(_consulta)
            _acceso.load_combo(Me.cmbLocalidad, tabla, "idLocalidad", "localidad")
        End If
    End Sub

    Public Function getLocalidad() As Integer
        Return cmbLocalidad.SelectedValue
    End Function

    Public Sub setLocalidad(ByVal localidad As Integer)
        Dim consulta As String
        Dim tabla As New DataTable
        '        select p.nombre, l.localidad
        'from Alumnos a, Localidades l, Provincias p
        'where a.idLocalidad = l.idLocalidad and l.idProvincia = p.idProvincia
        consulta = "select * from Localidades where idLocalidad = " & localidad
        tabla = _acceso.ejecutaSQL(consulta)
        _acceso.load_combo(Me.cmbProvincia, tabla, "idProvincia", "nombre")
        Me.cmbLocalidad.SelectedValue = localidad
    End Sub
End Class
